home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / Yerk 3.64 / Supplement / Unsupported / Optionals / LBug < prev    next >
Text File  |  1985-07-25  |  561b  |  38 lines
  1. 0 value dlevel
  2.  
  3. : (val")
  4.     r> dup 4+ >r @ count $ 3F and type 32 emit 32 emit
  5.     r> dup count + align >r count type
  6.     dup .
  7.     cr
  8. ;
  9.  
  10. : val" ( -- )
  11.     dlevel
  12.     IF
  13.         compile (val")
  14.         latest ,
  15.         word" c@ 1+ align allot
  16.     ELSE
  17.         word" drop
  18.     THEN
  19. ; immediate
  20.  
  21. : (msg")
  22.     r> dup 4+ >r @ count $ 3F and type 32 emit 32 emit
  23.     r> dup count + align >r count type
  24.     cr
  25. ;
  26.  
  27. : msg"
  28.     dlevel
  29.     IF
  30.         compile (msg")
  31.         latest ,
  32.         word" c@ 1+ align allot
  33.     ELSE        
  34.         word" drop
  35.     THEN
  36. ; immediate
  37.  
  38.